﻿Imports SERVICIOS
Public Class oFm_OpcionesAsistenacia



    Private Sub oFm_OpcionesAsistenacia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = oCls_registros.NombreEmpresa
        With oCb_opciones
            .Items.Add("Asistió")
            .Items.Add("Terreno")
            .Items.Add("Permiso")
            .Items.Add("Servicio")
            .Items.Add("Guardia")
            .Items.Add("Parte médico")
            .Items.Add("Comisión")
            .Items.Add("Ausente")
            .Items.Add("Clases")
        End With
    End Sub

    Private Sub oPb_aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oPb_aceptar.Click
        If oCb_opciones.SelectedIndex = -1 Then
            MsgBox("Debe seleccionar una opción para continuar", MsgBoxStyle.Critical, Me.Text)
            Exit Sub
        End If
        Me.Close()
    End Sub
End Class
